home *** CD-ROM | disk | FTP | other *** search

---

/ Developer Source 4 / developer source - volume 4.iso / delph / jan96 / rippf102.gif

< prev

next >

Graphics Interchange Format  |  1996-07-10  |  12KB  |  520x477  |  4-bit (8 colors)

Labels: text | screenshot | display | software | number | font
OCR: LOC.PAS procedure TForm1. Button1Click (Sender: TObject) ; var myBookmark : TBookmark; begin myBookmark := Table1. GetBookmark; {get current position} Table1. DisableControls; Table1.First; while not Table1. EOF do {search for a match} begin if Table1. FieldByName ('Name of Pet') . AsString = Edit1. Text then begin myBookmark := Table1. Get Bookmark; Table1 . GoToBookmark (myBookmark) ; Table1. FreeBookmark (myBookmark) ; Table1. EnableControls; Exit; end; Table1. Next end; Table1. GoToBookmark (myBookmark) ; Table1. FreeBookmark (myBookmark) ; Table1. EnableControls; end; 56: 49 Modified Insert \Loc

---